Свойство возвращает текущий номер строки в файле. Нумерация строк всегда начинается с единицы. Только для чтения

object.Line

Параметры
object объект типа TextStream

Пример
Следующий код иллюстрирует использование Line свойства:

Function GetLine
  Const ForReading = 1, ForWriting = 2
  Dim fso, f, ra
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "Hello world!" & vbCrLf & "VB Script is fun!" & vbCrLf
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  ra =  f.ReadAll
  GetLine = f.Line   
End Function